Naeliton - Departamento de Ciencias Contabeis UFPE (Amostra de Análise Descritiva)

Introdução

Esta uma amostra de análise de dados descritiva feita sob a indicação de necessidade do discente Naeliton Souza Pinho do Dep de Ciencias Contabeis da UFPE.

Carregamento das bases de dados

Base de Dados das Procuradorias

O instrumento de coleta de dados foi a base de dados da Procuradoria-Geral da Fazenda Nacional referente ao ano de 2024 de cada estado brasileiro que foram juntados em uma base de dados comum, onde através de manipulação da base de dados a classificação das regiões de atuação do orgão foi feita conforme indicado no site https://www.gov.br/pgfn/pt-br/acesso-a-informacao/institucional/abrangencia-territorial-das-unidades-da-pgfn

Análises Geral (Todos os Tipos de Negociação)

Nessa seção serão feitas as análises descritivas simples (média, mediana e desvio padrão) para o discente começar o trabalho de análise mais aprofundada e fundamentada na literatura do TCC.

Análise Geral Feita por Região (Todos os Tipos de Negociação)

Análise feita por região tem por objetivo dar uma visão da distribuição dos dados tal como o orgão é organizado.

Brasil

# Calcular estatísticas adicionais
tabela_moda <- dados %>%
  summarise(
    Moda = mfv(`Qtde de Parcelas Concedidas`, na_rm = TRUE) # mfv() retorna a moda
  ) %>%
  t() %>% # Transpor para exibição
  as.data.frame() %>%
  tibble::rownames_to_column("Estatística") %>%
  rename(Valor = V1)



# Criar tabela descritiva
tabela_descritiva <- dados %>%
  select(
         `Qtde de Parcelas Concedidas`,
         `Valor Consolidado`, 
         `Valor do Principal`,
         `Valor da Multa`
         ) %>%
  tbl_summary(label = list(`Qtde de Parcelas Concedidas` ~ "Qtde de Parcelas Concedidas",
                           `Valor Consolidado` ~ "Valor Consolidado",
                           `Valor do Principal` ~ "Valor Principal",
                           `Valor da Multa` ~ "Valor da Multa"),
              statistic = list(all_continuous() ~ "{mean} (Média), {median} (Mediana), {sd} (Desvio Padrão)"),
              missing = "no") %>%
  as_gt() %>% # Converter para gt para adicionar a tabela extra
  gt::tab_spanner(label = "Estatísticas Descritivas", columns = gt::everything()) %>%
  gt::tab_source_note(gt::md(paste0(
    "**Moda das Parcelas Concedidadas:** ", tabela_moda$Valor[tabela_moda$Estatística == "Moda"]
  )))

# Exibir tabela
tabela_descritiva
Estatísticas Descritivas
Characteristic N = 2,284,0961
Qtde de Parcelas Concedidas 32 (Média), 18 (Mediana), 33 (Desvio Padrão)
Valor Consolidado 58,565 (Média), 4,108 (Mediana), 626,854 (Desvio Padrão)
Valor Principal 8,654 (Média), 1,200 (Mediana), 376,408 (Desvio Padrão)
Valor da Multa 694 (Média), 0 (Mediana), 15,033 (Desvio Padrão)
Moda das Parcelas Concedidadas: 60
1 Mean (Média), Median (Mediana), SD (Desvio Padrão)

Media do Valor Consolidado

grafico_mapa_calor_interativo_media_valor_consolidado

Região 1

dados_r1 <- dados |> filter(`Região` == "1° Região")

# Calcular estatísticas adicionais
tabela_moda <- dados_r1 %>%
  summarise(
    Moda = mfv(`Qtde de Parcelas Concedidas`, na_rm = TRUE) # mfv() retorna a moda
  ) %>%
  t() %>% # Transpor para exibição
  as.data.frame() %>%
  tibble::rownames_to_column("Estatística") %>%
  rename(Valor = V1)



# Criar tabela descritiva
tabela_descritiva <- dados_r1 %>%
  select(
         `Qtde de Parcelas Concedidas`,
         `Valor Consolidado`, 
         `Valor do Principal`,
         `Valor da Multa`
         ) %>%
  tbl_summary(label = list(`Qtde de Parcelas Concedidas` ~ "Qtde de Parcelas Concedidas",
                           `Valor Consolidado` ~ "Valor Consolidado",
                           `Valor do Principal` ~ "Valor Principal",
                           `Valor da Multa` ~ "Valor da Multa"),
              statistic = list(all_continuous() ~ "{mean} (Média), {median} (Mediana), {sd} (Desvio Padrão)"),
              missing = "no") 
# Exibir tabela
tabela_descritiva
Characteristic N = 537,3541
Qtde de Parcelas Concedidas 32 (Média), 18 (Mediana), 33 (Desvio Padrão)
Valor Consolidado 56,611 (Média), 4,101 (Mediana), 586,762 (Desvio Padrão)
Valor Principal 6,234 (Média), 1,200 (Mediana), 153,450 (Desvio Padrão)
Valor da Multa 627 (Média), 0 (Mediana), 12,582 (Desvio Padrão)
1 Mean (Média), Median (Mediana), SD (Desvio Padrão)

Região 2

dados_r2 <- dados |> filter(`Região` == "2° Região")

# Calcular estatísticas adicionais
tabela_moda <- dados_r2 %>%
  summarise(
    Moda = mfv(`Qtde de Parcelas Concedidas`, na_rm = TRUE) # mfv() retorna a moda
  ) %>%
  t() %>% # Transpor para exibição
  as.data.frame() %>%
  tibble::rownames_to_column("Estatística") %>%
  rename(Valor = V1)



# Criar tabela descritiva
tabela_descritiva <- dados_r2 %>%
  select(
         `Qtde de Parcelas Concedidas`,
         `Valor Consolidado`, 
         `Valor do Principal`,
         `Valor da Multa`
         ) %>%
  tbl_summary(label = list(`Qtde de Parcelas Concedidas` ~ "Qtde de Parcelas Concedidas",
                           `Valor Consolidado` ~ "Valor Consolidado",
                           `Valor do Principal` ~ "Valor Principal",
                           `Valor da Multa` ~ "Valor da Multa"),
              statistic = list(all_continuous() ~ "{mean} (Média), {median} (Mediana), {sd} (Desvio Padrão)"),
              missing = "no") 
# Exibir tabela
tabela_descritiva
Characteristic N = 239,2501
Qtde de Parcelas Concedidas 32 (Média), 18 (Mediana), 32 (Desvio Padrão)
Valor Consolidado 48,801 (Média), 3,963 (Mediana), 410,298 (Desvio Padrão)
Valor Principal 6,570 (Média), 1,200 (Mediana), 109,046 (Desvio Padrão)
Valor da Multa 607 (Média), 0 (Mediana), 12,677 (Desvio Padrão)
1 Mean (Média), Median (Mediana), SD (Desvio Padrão)

Região 3

dados_r3 <- dados |> filter(`Região` == "3° Região")

# Calcular estatísticas adicionais
tabela_moda <- dados_r3 %>%
  summarise(
    Moda = mfv(`Qtde de Parcelas Concedidas`, na_rm = TRUE) # mfv() retorna a moda
  ) %>%
  t() %>% # Transpor para exibição
  as.data.frame() %>%
  tibble::rownames_to_column("Estatística") %>%
  rename(Valor = V1)



# Criar tabela descritiva
tabela_descritiva <- dados_r3 %>%
  select(
         `Qtde de Parcelas Concedidas`,
         `Valor Consolidado`, 
         `Valor do Principal`,
         `Valor da Multa`
         ) %>%
  tbl_summary(label = list(`Qtde de Parcelas Concedidas` ~ "Qtde de Parcelas Concedidas",
                           `Valor Consolidado` ~ "Valor Consolidado",
                           `Valor do Principal` ~ "Valor Principal",
                           `Valor da Multa` ~ "Valor da Multa"),
              statistic = list(all_continuous() ~ "{mean} (Média), {median} (Mediana), {sd} (Desvio Padrão)"),
              missing = "no") 

# Exibir tabela
tabela_descritiva
Characteristic N = 612,8791
Qtde de Parcelas Concedidas 32 (Média), 18 (Mediana), 34 (Desvio Padrão)
Valor Consolidado 75,730 (Média), 4,120 (Mediana), 801,414 (Desvio Padrão)
Valor Principal 12,688 (Média), 1,200 (Mediana), 654,532 (Desvio Padrão)
Valor da Multa 838 (Média), 0 (Mediana), 18,705 (Desvio Padrão)
1 Mean (Média), Median (Mediana), SD (Desvio Padrão)

Região 4

dados_r4 <- dados |> filter(`Região` == "4° Região")


# Criar tabela descritiva
tabela_descritiva <- dados_r4 %>%
  select(
         `Qtde de Parcelas Concedidas`,
         `Valor Consolidado`, 
         `Valor do Principal`,
         `Valor da Multa`
         ) %>%
  tbl_summary(label = list(`Qtde de Parcelas Concedidas` ~ "Qtde de Parcelas Concedidas",
                           `Valor Consolidado` ~ "Valor Consolidado",
                           `Valor do Principal` ~ "Valor Principal",
                           `Valor da Multa` ~ "Valor da Multa"),
              statistic = list(all_continuous() ~ "{mean} (Média), {median} (Mediana), {sd} (Desvio Padrão)"),
              missing = "no")

# Exibir tabela
tabela_descritiva
Characteristic N = 396,1071
Qtde de Parcelas Concedidas 34 (Média), 20 (Mediana), 35 (Desvio Padrão)
Valor Consolidado 58,589 (Média), 4,378 (Mediana), 704,011 (Desvio Padrão)
Valor Principal 10,182 (Média), 1,156 (Mediana), 300,461 (Desvio Padrão)
Valor da Multa 623 (Média), 0 (Mediana), 11,383 (Desvio Padrão)
1 Mean (Média), Median (Mediana), SD (Desvio Padrão)

Região 5

dados_r5 <- dados |> filter(`Região` == "5° Região")



# Criar tabela descritiva
tabela_descritiva <- dados_r5 %>%
  select(
         `Qtde de Parcelas Concedidas`,
         `Valor Consolidado`, 
         `Valor do Principal`,
         `Valor da Multa`
         ) %>%
  tbl_summary(label = list(`Qtde de Parcelas Concedidas` ~ "Qtde de Parcelas Concedidas",
                           `Valor Consolidado` ~ "Valor Consolidado",
                           `Valor do Principal` ~ "Valor Principal",
                           `Valor da Multa` ~ "Valor da Multa"),
              statistic = list(all_continuous() ~ "{mean} (Média), {median} (Mediana), {sd} (Desvio Padrão)"),
              missing = "no")

# Exibir tabela
tabela_descritiva
Characteristic N = 265,2321
Qtde de Parcelas Concedidas 33 (Média), 19 (Mediana), 33 (Desvio Padrão)
Valor Consolidado 43,749 (Média), 4,098 (Mediana), 433,343 (Desvio Padrão)
Valor Principal 6,640 (Média), 1,156 (Mediana), 151,236 (Desvio Padrão)
Valor da Multa 564 (Média), 0 (Mediana), 16,296 (Desvio Padrão)
1 Mean (Média), Median (Mediana), SD (Desvio Padrão)

Região 6

dados_r6 <- dados |> filter(`Região` == "6° Região")


# Criar tabela descritiva
tabela_descritiva <- dados_r6 %>%
  select(
         `Qtde de Parcelas Concedidas`,
         `Valor Consolidado`, 
         `Valor do Principal`,
         `Valor da Multa`
         ) %>%
  tbl_summary(label = list(`Qtde de Parcelas Concedidas` ~ "Qtde de Parcelas Concedidas",
                           `Valor Consolidado` ~ "Valor Consolidado",
                           `Valor do Principal` ~ "Valor Principal",
                           `Valor da Multa` ~ "Valor da Multa"),
              statistic = list(all_continuous() ~ "{mean} (Média), {median} (Mediana), {sd} (Desvio Padrão)"),
              missing = "no")

# Exibir tabela
tabela_descritiva
Characteristic N = 233,2741
Qtde de Parcelas Concedidas 31 (Média), 17 (Mediana), 32 (Desvio Padrão)
Valor Consolidado 45,154 (Média), 3,872 (Mediana), 365,764 (Desvio Padrão)
Valor Principal 5,752 (Média), 1,156 (Mediana), 115,764 (Desvio Padrão)
Valor da Multa 945 (Média), 0 (Mediana), 17,276 (Desvio Padrão)
1 Mean (Média), Median (Mediana), SD (Desvio Padrão)

Análise Feita por Mês

Análise feita por Mês

12/2024

dados_m_12 <- dados |> filter(`Mês/Ano do Requerimento da Negociação` == "12/2024")


# Criar tabela descritiva
tabela_descritiva <- dados_m_12 %>%
  select(
         `Qtde de Parcelas Concedidas`,
         `Valor Consolidado`, 
         `Valor do Principal`,
         `Valor da Multa`
         ) %>%
  tbl_summary(label = list(`Qtde de Parcelas Concedidas` ~ "Qtde de Parcelas Concedidas",
                           `Valor Consolidado` ~ "Valor Consolidado",
                           `Valor do Principal` ~ "Valor Principal",
                           `Valor da Multa` ~ "Valor da Multa"),
              statistic = list(all_continuous() ~ "{mean} (Média), {median} (Mediana), {sd} (Desvio Padrão)"),
              missing = "no")

# Exibir tabela
tabela_descritiva
Characteristic N = 191,0501
Qtde de Parcelas Concedidas 29 (Média), 16 (Mediana), 31 (Desvio Padrão)
Valor Consolidado 69,207 (Média), 4,000 (Mediana), 766,977 (Desvio Padrão)
Valor Principal 7,269 (Média), 1,200 (Mediana), 273,970 (Desvio Padrão)
Valor da Multa 612 (Média), 0 (Mediana), 10,958 (Desvio Padrão)
1 Mean (Média), Median (Mediana), SD (Desvio Padrão)

11/2024

dados_m_11 <- dados |> filter(`Mês/Ano do Requerimento da Negociação` == "11/2024")


# Criar tabela descritiva
tabela_descritiva <- dados_m_11 %>%
  select(
         `Qtde de Parcelas Concedidas`,
         `Valor Consolidado`, 
         `Valor do Principal`,
         `Valor da Multa`
         ) %>%
  tbl_summary(label = list(`Qtde de Parcelas Concedidas` ~ "Qtde de Parcelas Concedidas",
                           `Valor Consolidado` ~ "Valor Consolidado",
                           `Valor do Principal` ~ "Valor Principal",
                           `Valor da Multa` ~ "Valor da Multa"),
              statistic = list(all_continuous() ~ "{mean} (Média), {median} (Mediana), {sd} (Desvio Padrão)"),
              missing = "no")

# Exibir tabela
tabela_descritiva
Characteristic N = 177,9231
Qtde de Parcelas Concedidas 29 (Média), 15 (Mediana), 31 (Desvio Padrão)
Valor Consolidado 50,152 (Média), 3,802 (Mediana), 708,996 (Desvio Padrão)
Valor Principal 21,398 (Média), 1,200 (Mediana), 1,166,204 (Desvio Padrão)
Valor da Multa 600 (Média), 0 (Mediana), 10,456 (Desvio Padrão)
1 Mean (Média), Median (Mediana), SD (Desvio Padrão)

10/2024

dados_m_10 <- dados |> filter(`Mês/Ano do Requerimento da Negociação` == "10/2024")

# Criar tabela descritiva
tabela_descritiva <- dados_m_10 %>%
  select(
         `Qtde de Parcelas Concedidas`,
         `Valor Consolidado`, 
         `Valor do Principal`,
         `Valor da Multa`
         ) %>%
  tbl_summary(label = list(`Qtde de Parcelas Concedidas` ~ "Qtde de Parcelas Concedidas",
                           `Valor Consolidado` ~ "Valor Consolidado",
                           `Valor do Principal` ~ "Valor Principal",
                           `Valor da Multa` ~ "Valor da Multa"),
              statistic = list(all_continuous() ~ "{mean} (Média), {median} (Mediana), {sd} (Desvio Padrão)"),
              missing = "no")
# Exibir tabela
tabela_descritiva
Characteristic N = 235,9421
Qtde de Parcelas Concedidas 34 (Média), 18 (Mediana), 37 (Desvio Padrão)
Valor Consolidado 71,411 (Média), 4,309 (Mediana), 727,832 (Desvio Padrão)
Valor Principal 9,671 (Média), 1,200 (Mediana), 150,847 (Desvio Padrão)
Valor da Multa 847 (Média), 0 (Mediana), 14,717 (Desvio Padrão)
1 Mean (Média), Median (Mediana), SD (Desvio Padrão)

09/2024

dados_m_09 <- dados |> filter(`Mês/Ano do Requerimento da Negociação` == "09/2024")


# Criar tabela descritiva
tabela_descritiva <- dados_m_09 %>%
  select(
         `Qtde de Parcelas Concedidas`,
         `Valor Consolidado`, 
         `Valor do Principal`,
         `Valor da Multa`
         ) %>%
  tbl_summary(label = list(`Qtde de Parcelas Concedidas` ~ "Qtde de Parcelas Concedidas",
                           `Valor Consolidado` ~ "Valor Consolidado",
                           `Valor do Principal` ~ "Valor Principal",
                           `Valor da Multa` ~ "Valor da Multa"),
              statistic = list(all_continuous() ~ "{mean} (Média), {median} (Mediana), {sd} (Desvio Padrão)"),
              missing = "no")

# Exibir tabela
tabela_descritiva
Characteristic N = 144,7141
Qtde de Parcelas Concedidas 33 (Média), 20 (Mediana), 34 (Desvio Padrão)
Valor Consolidado 56,614 (Média), 4,075 (Mediana), 471,066 (Desvio Padrão)
Valor Principal 8,018 (Média), 1,200 (Mediana), 169,214 (Desvio Padrão)
Valor da Multa 1,004 (Média), 0 (Mediana), 27,570 (Desvio Padrão)
1 Mean (Média), Median (Mediana), SD (Desvio Padrão)

08/2024

dados_m_08 <- dados |> filter(`Mês/Ano do Requerimento da Negociação` == "08/2024")


# Criar tabela descritiva
tabela_descritiva <- dados_m_08 %>%
  select(
         `Qtde de Parcelas Concedidas`,
         `Valor Consolidado`, 
         `Valor do Principal`,
         `Valor da Multa`
         ) %>%
  tbl_summary(label = list(`Qtde de Parcelas Concedidas` ~ "Qtde de Parcelas Concedidas",
                           `Valor Consolidado` ~ "Valor Consolidado",
                           `Valor do Principal` ~ "Valor Principal",
                           `Valor da Multa` ~ "Valor da Multa"),
              statistic = list(all_continuous() ~ "{mean} (Média), {median} (Mediana), {sd} (Desvio Padrão)"),
              missing = "no")

# Exibir tabela
tabela_descritiva
Characteristic N = 195,8081
Qtde de Parcelas Concedidas 36 (Média), 20 (Mediana), 38 (Desvio Padrão)
Valor Consolidado 81,412 (Média), 4,223 (Mediana), 566,559 (Desvio Padrão)
Valor Principal 13,920 (Média), 1,156 (Mediana), 389,607 (Desvio Padrão)
Valor da Multa 653 (Média), 0 (Mediana), 8,763 (Desvio Padrão)
1 Mean (Média), Median (Mediana), SD (Desvio Padrão)

07/2024

dados_m_07 <- dados |> filter(`Mês/Ano do Requerimento da Negociação` == "07/2024")


# Criar tabela descritiva
tabela_descritiva <- dados_m_07 %>%
  select(
         `Qtde de Parcelas Concedidas`,
         `Valor Consolidado`, 
         `Valor do Principal`,
         `Valor da Multa`
         ) %>%
  tbl_summary(label = list(`Qtde de Parcelas Concedidas` ~ "Qtde de Parcelas Concedidas",
                           `Valor Consolidado` ~ "Valor Consolidado",
                           `Valor do Principal` ~ "Valor Principal",
                           `Valor da Multa` ~ "Valor da Multa"),
              statistic = list(all_continuous() ~ "{mean} (Média), {median} (Mediana), {sd} (Desvio Padrão)"),
              missing = "no")

# Exibir tabela
tabela_descritiva
Characteristic N = 178,3431
Qtde de Parcelas Concedidas 34 (Média), 18 (Mediana), 35 (Desvio Padrão)
Valor Consolidado 75,309 (Média), 3,980 (Mediana), 773,619 (Desvio Padrão)
Valor Principal 8,940 (Média), 1,156 (Mediana), 271,507 (Desvio Padrão)
Valor da Multa 599 (Média), 0 (Mediana), 12,280 (Desvio Padrão)
1 Mean (Média), Median (Mediana), SD (Desvio Padrão)

06/2024

dados_m_06 <- dados |> filter(`Mês/Ano do Requerimento da Negociação` == "06/2024")


# Criar tabela descritiva
tabela_descritiva <- dados_m_06 %>%
  select(
         `Qtde de Parcelas Concedidas`,
         `Valor Consolidado`, 
         `Valor do Principal`,
         `Valor da Multa`
         ) %>%
  tbl_summary(label = list(`Qtde de Parcelas Concedidas` ~ "Qtde de Parcelas Concedidas",
                           `Valor Consolidado` ~ "Valor Consolidado",
                           `Valor do Principal` ~ "Valor Principal",
                           `Valor da Multa` ~ "Valor da Multa"),
              statistic = list(all_continuous() ~ "{mean} (Média), {median} (Mediana), {sd} (Desvio Padrão)"),
              missing = "no") 

# Exibir tabela
tabela_descritiva
Characteristic N = 130,9511
Qtde de Parcelas Concedidas 34 (Média), 20 (Mediana), 33 (Desvio Padrão)
Valor Consolidado 93,042 (Média), 5,182 (Mediana), 927,240 (Desvio Padrão)
Valor Principal 6,630 (Média), 1,156 (Mediana), 89,925 (Desvio Padrão)
Valor da Multa 735 (Média), 0 (Mediana), 13,006 (Desvio Padrão)
1 Mean (Média), Median (Mediana), SD (Desvio Padrão)

05/2024

dados_m_05 <- dados |> filter(`Mês/Ano do Requerimento da Negociação` == "05/2024")

# Criar tabela descritiva
tabela_descritiva <- dados_m_05 %>%
  select(
         `Qtde de Parcelas Concedidas`,
         `Valor Consolidado`, 
         `Valor do Principal`,
         `Valor da Multa`
         ) %>%
  tbl_summary(label = list(`Qtde de Parcelas Concedidas` ~ "Qtde de Parcelas Concedidas",
                           `Valor Consolidado` ~ "Valor Consolidado",
                           `Valor do Principal` ~ "Valor Principal",
                           `Valor da Multa` ~ "Valor da Multa"),
              statistic = list(all_continuous() ~ "{mean} (Média), {median} (Mediana), {sd} (Desvio Padrão)"),
              missing = "no") 

# Exibir tabela
tabela_descritiva
Characteristic N = 139,8771
Qtde de Parcelas Concedidas 30 (Média), 16 (Mediana), 30 (Desvio Padrão)
Valor Consolidado 30,425 (Média), 3,649 (Mediana), 174,910 (Desvio Padrão)
Valor Principal 3,800 (Média), 1,101 (Mediana), 54,304 (Desvio Padrão)
Valor da Multa 604 (Média), 0 (Mediana), 7,967 (Desvio Padrão)
1 Mean (Média), Median (Mediana), SD (Desvio Padrão)

04/2024

dados_m_04 <- dados |> filter(`Mês/Ano do Requerimento da Negociação` == "04/2024")


# Criar tabela descritiva
tabela_descritiva <- dados_m_04 %>%
  select(
         `Qtde de Parcelas Concedidas`,
         `Valor Consolidado`, 
         `Valor do Principal`,
         `Valor da Multa`
         ) %>%
  tbl_summary(label = list(`Qtde de Parcelas Concedidas` ~ "Qtde de Parcelas Concedidas",
                           `Valor Consolidado` ~ "Valor Consolidado",
                           `Valor do Principal` ~ "Valor Principal",
                           `Valor da Multa` ~ "Valor da Multa"),
              statistic = list(all_continuous() ~ "{mean} (Média), {median} (Mediana), {sd} (Desvio Padrão)"),
              missing = "no")

# Exibir tabela
tabela_descritiva
Characteristic N = 170,2771
Qtde de Parcelas Concedidas 34 (Média), 17 (Mediana), 36 (Desvio Padrão)
Valor Consolidado 92,017 (Média), 4,435 (Mediana), 689,123 (Desvio Padrão)
Valor Principal 9,790 (Média), 1,101 (Mediana), 237,734 (Desvio Padrão)
Valor da Multa 901 (Média), 0 (Mediana), 23,195 (Desvio Padrão)
1 Mean (Média), Median (Mediana), SD (Desvio Padrão)

03/2024

dados_m_03 <- dados |> filter(`Mês/Ano do Requerimento da Negociação` == "03/2024")


# Criar tabela descritiva
tabela_descritiva <- dados_m_03 %>%
  select(
         `Qtde de Parcelas Concedidas`,
         `Valor Consolidado`, 
         `Valor do Principal`,
         `Valor da Multa`
         ) %>%
  tbl_summary(label = list(`Qtde de Parcelas Concedidas` ~ "Qtde de Parcelas Concedidas",
                           `Valor Consolidado` ~ "Valor Consolidado",
                           `Valor do Principal` ~ "Valor Principal",
                           `Valor da Multa` ~ "Valor da Multa"),
              statistic = list(all_continuous() ~ "{mean} (Média), {median} (Mediana), {sd} (Desvio Padrão)"),
              missing = "no") 

# Exibir tabela
tabela_descritiva
Characteristic N = 134,4941
Qtde de Parcelas Concedidas 31 (Média), 16 (Mediana), 33 (Desvio Padrão)
Valor Consolidado 62,504 (Média), 3,558 (Mediana), 941,557 (Desvio Padrão)
Valor Principal 4,616 (Média), 1,101 (Mediana), 62,298 (Desvio Padrão)
Valor da Multa 1,007 (Média), 0 (Mediana), 21,732 (Desvio Padrão)
1 Mean (Média), Median (Mediana), SD (Desvio Padrão)

02/2024

dados_m_02 <- dados |> filter(`Mês/Ano do Requerimento da Negociação` == "02/2024")


# Criar tabela descritiva
tabela_descritiva <- dados_m_02 %>%
  select(
         `Qtde de Parcelas Concedidas`,
         `Valor Consolidado`, 
         `Valor do Principal`,
         `Valor da Multa`
         ) %>%
  tbl_summary(label = list(`Qtde de Parcelas Concedidas` ~ "Qtde de Parcelas Concedidas",
                           `Valor Consolidado` ~ "Valor Consolidado",
                           `Valor do Principal` ~ "Valor Principal",
                           `Valor da Multa` ~ "Valor da Multa"),
              statistic = list(all_continuous() ~ "{mean} (Média), {median} (Mediana), {sd} (Desvio Padrão)"),
              missing = "no") 

# Exibir tabela
tabela_descritiva
Characteristic N = 121,9521
Qtde de Parcelas Concedidas 31 (Média), 16 (Mediana), 32 (Desvio Padrão)
Valor Consolidado 41,455 (Média), 3,676 (Mediana), 356,178 (Desvio Padrão)
Valor Principal 6,723 (Média), 1,156 (Mediana), 175,478 (Desvio Padrão)
Valor da Multa 729 (Média), 0 (Mediana), 14,786 (Desvio Padrão)
1 Mean (Média), Median (Mediana), SD (Desvio Padrão)

01/2024

dados_m_01 <- dados |> filter(`Mês/Ano do Requerimento da Negociação` == "01/2024")



# Criar tabela descritiva
tabela_descritiva <- dados_m_01 %>%
  select(
         `Qtde de Parcelas Concedidas`,
         `Valor Consolidado`, 
         `Valor do Principal`,
         `Valor da Multa`
         ) %>%
  tbl_summary(label = list(`Qtde de Parcelas Concedidas` ~ "Qtde de Parcelas Concedidas",
                           `Valor Consolidado` ~ "Valor Consolidado",
                           `Valor do Principal` ~ "Valor Principal",
                           `Valor da Multa` ~ "Valor da Multa"),
              statistic = list(all_continuous() ~ "{mean} (Média), {median} (Mediana), {sd} (Desvio Padrão)"),
              missing = "no") 

# Exibir tabela
tabela_descritiva
Characteristic N = 462,7651
Qtde de Parcelas Concedidas 32 (Média), 21 (Mediana), 30 (Desvio Padrão)
Valor Consolidado 27,179 (Média), 4,244 (Mediana), 301,314 (Desvio Padrão)
Valor Principal 4,920 (Média), 1,452 (Mediana), 89,022 (Desvio Padrão)
Valor da Multa 487 (Média), 0 (Mediana), 11,358 (Desvio Padrão)
1 Mean (Média), Median (Mediana), SD (Desvio Padrão)

Distribuição dos Tipos de Negociação

Brasil

# Renomear a variável caso tenha espaços ou caracteres especiais
dados_tp_negociacao <- dados 

# Criar tabela descritiva
tabela <- dados_tp_negociacao %>%
  select(Tipo_de_Negociacao) %>%
  tbl_summary(
    statistic = all_categorical() ~ "{n} ({p}%)",  # Exibir contagem e porcentagem
    missing = "no"  # Não mostrar valores ausentes
  ) %>%
  modify_header(label = "**Tipo de Negociação**") %>%
  modify_spanning_header(all_stat_cols() ~ "**Distribuição**") %>%
  bold_labels()

# Exibir a tabela
tabela
Tipo de Negociação Distribuição
N = 2,284,0961
Tipo_de_Negociacao
    PARCELAMENTO CONVENCIONAL 1,324,335 (58%)
    PARCELAMENTO DA RECUPERACAO JUDICIAL 306 (<0.1%)
    PARCELAMENTO DE ARREMATACAO 129 (<0.1%)
    PARCELAMENTO DE HONORARIOS ADVOCATICIOS 119 (<0.1%)
    TRANSACAO EDITAL PGDAU N 3 2023 - DEMAIS DEBITOS 1 (<0.1%)
    TRANSACAO INDIVIDUAL (DEPENDE DE PREVIA APROVACAO DO PDA DA REGIAO) 1,010 (<0.1%)
    TRANSACAO INDIVIDUAL SIMPLIFICADA 141 (<0.1%)
    TRANSACAO INDIVIDUAL SIMPLIFICADA - CONTRAPROPOSTA - DEBITOS PREVIDENCIARIOS 324 (<0.1%)
    TRANSACAO INDIVIDUAL SIMPLIFICADA - CONTRAPROPOSTA - DEMAIS DEBITOS 356 (<0.1%)
    TRANSACAO INDIVIDUAL SIMPLIFICADA - CONTRAPROPOSTA - SIMPLES NACIONAL 168 (<0.1%)
    TRANSACAO NO CONTENCIOSO TRIBUTARIO DE RELEVANTE E DISSEMINADA CONTROVERSIA JURIDICA 13 (<0.1%)
    TRANSACAO POR ADESAO - CONTENCIOSO TRIBUTARIO 3 (<0.1%)
    TRANSACAO POR ADESAO - EDITAL PGDAU N 01/2024 - DEBITOS PREVIDENCIARIOS 92,296 (4.0%)
    TRANSACAO POR ADESAO - EDITAL PGDAU N 01/2024 - DEMAIS DEBITOS 98,803 (4.3%)
    TRANSACAO POR ADESAO - EDITAL PGDAU N 01/2024 - SIMPLES NACIONAL 174,984 (7.7%)
    TRANSACAO POR ADESAO - EDITAL PGDAU N 02/2024 - DEBITOS PREVIDENCIARIOS 116,118 (5.1%)
    TRANSACAO POR ADESAO - EDITAL PGDAU N 02/2024 - DEMAIS DEBITOS 147,305 (6.4%)
    TRANSACAO POR ADESAO - EDITAL PGDAU N 02/2024 - SIMPLES NACIONAL 188,255 (8.2%)
    TRANSACAO POR ADESAO - EDITAL PGDAU N 06/2024 119,865 (5.2%)
    TRANSACAO POR ADESAO - EDITAL PGDAU N 07/2024 - DESENROLA-DAU 12,531 (0.5%)
    TRANSACAO SOS RS 7,034 (0.3%)
1 n (%)

Região 1

# Renomear a variável caso tenha espaços ou caracteres especiais
dados_tp_negociacao <- dados_r1 

# Criar tabela descritiva
tabela <- dados_tp_negociacao %>%
  select(Tipo_de_Negociacao) %>%
  tbl_summary(
    statistic = all_categorical() ~ "{n} ({p}%)",  # Exibir contagem e porcentagem
    missing = "no"  # Não mostrar valores ausentes
  ) %>%
  modify_header(label = "**Tipo de Negociação**") %>%
  modify_spanning_header(all_stat_cols() ~ "**Distribuição**") %>%
  bold_labels()

# Exibir a tabela
tabela
Tipo de Negociação Distribuição
N = 537,3541
Tipo_de_Negociacao
    PARCELAMENTO CONVENCIONAL 301,053 (56%)
    PARCELAMENTO DA RECUPERACAO JUDICIAL 54 (<0.1%)
    PARCELAMENTO DE ARREMATACAO 11 (<0.1%)
    PARCELAMENTO DE HONORARIOS ADVOCATICIOS 2 (<0.1%)
    TRANSACAO INDIVIDUAL (DEPENDE DE PREVIA APROVACAO DO PDA DA REGIAO) 92 (<0.1%)
    TRANSACAO INDIVIDUAL SIMPLIFICADA 2 (<0.1%)
    TRANSACAO INDIVIDUAL SIMPLIFICADA - CONTRAPROPOSTA - DEBITOS PREVIDENCIARIOS 1 (<0.1%)
    TRANSACAO INDIVIDUAL SIMPLIFICADA - CONTRAPROPOSTA - DEMAIS DEBITOS 2 (<0.1%)
    TRANSACAO POR ADESAO - EDITAL PGDAU N 01/2024 - DEBITOS PREVIDENCIARIOS 21,972 (4.1%)
    TRANSACAO POR ADESAO - EDITAL PGDAU N 01/2024 - DEMAIS DEBITOS 27,574 (5.1%)
    TRANSACAO POR ADESAO - EDITAL PGDAU N 01/2024 - SIMPLES NACIONAL 42,833 (8.0%)
    TRANSACAO POR ADESAO - EDITAL PGDAU N 02/2024 - DEBITOS PREVIDENCIARIOS 26,652 (5.0%)
    TRANSACAO POR ADESAO - EDITAL PGDAU N 02/2024 - DEMAIS DEBITOS 39,121 (7.3%)
    TRANSACAO POR ADESAO - EDITAL PGDAU N 02/2024 - SIMPLES NACIONAL 44,828 (8.3%)
    TRANSACAO POR ADESAO - EDITAL PGDAU N 06/2024 29,953 (5.6%)
    TRANSACAO POR ADESAO - EDITAL PGDAU N 07/2024 - DESENROLA-DAU 2,973 (0.6%)
    TRANSACAO SOS RS 231 (<0.1%)
1 n (%)

Região 2

# Renomear a variável caso tenha espaços ou caracteres especiais
dados_tp_negociacao <- dados_r2 

# Criar tabela descritiva
tabela <- dados_tp_negociacao %>%
  select(Tipo_de_Negociacao) %>%
  tbl_summary(
    statistic = all_categorical() ~ "{n} ({p}%)",  # Exibir contagem e porcentagem
    missing = "no"  # Não mostrar valores ausentes
  ) %>%
  modify_header(label = "**Tipo de Negociação**") %>%
  modify_spanning_header(all_stat_cols() ~ "**Distribuição**") %>%
  bold_labels()

# Exibir a tabela
tabela
Tipo de Negociação Distribuição
N = 239,2501
Tipo_de_Negociacao
    PARCELAMENTO CONVENCIONAL 144,086 (60%)
    PARCELAMENTO DA RECUPERACAO JUDICIAL 36 (<0.1%)
    PARCELAMENTO DE ARREMATACAO 13 (<0.1%)
    PARCELAMENTO DE HONORARIOS ADVOCATICIOS 7 (<0.1%)
    TRANSACAO INDIVIDUAL (DEPENDE DE PREVIA APROVACAO DO PDA DA REGIAO) 102 (<0.1%)
    TRANSACAO INDIVIDUAL SIMPLIFICADA 2 (<0.1%)
    TRANSACAO INDIVIDUAL SIMPLIFICADA - CONTRAPROPOSTA - DEBITOS PREVIDENCIARIOS 9 (<0.1%)
    TRANSACAO INDIVIDUAL SIMPLIFICADA - CONTRAPROPOSTA - DEMAIS DEBITOS 11 (<0.1%)
    TRANSACAO INDIVIDUAL SIMPLIFICADA - CONTRAPROPOSTA - SIMPLES NACIONAL 2 (<0.1%)
    TRANSACAO NO CONTENCIOSO TRIBUTARIO DE RELEVANTE E DISSEMINADA CONTROVERSIA JURIDICA 1 (<0.1%)
    TRANSACAO POR ADESAO - CONTENCIOSO TRIBUTARIO 2 (<0.1%)
    TRANSACAO POR ADESAO - EDITAL PGDAU N 01/2024 - DEBITOS PREVIDENCIARIOS 7,354 (3.1%)
    TRANSACAO POR ADESAO - EDITAL PGDAU N 01/2024 - DEMAIS DEBITOS 10,040 (4.2%)
    TRANSACAO POR ADESAO - EDITAL PGDAU N 01/2024 - SIMPLES NACIONAL 17,372 (7.3%)
    TRANSACAO POR ADESAO - EDITAL PGDAU N 02/2024 - DEBITOS PREVIDENCIARIOS 9,920 (4.1%)
    TRANSACAO POR ADESAO - EDITAL PGDAU N 02/2024 - DEMAIS DEBITOS 15,709 (6.6%)
    TRANSACAO POR ADESAO - EDITAL PGDAU N 02/2024 - SIMPLES NACIONAL 20,965 (8.8%)
    TRANSACAO POR ADESAO - EDITAL PGDAU N 06/2024 12,156 (5.1%)
    TRANSACAO POR ADESAO - EDITAL PGDAU N 07/2024 - DESENROLA-DAU 1,406 (0.6%)
    TRANSACAO SOS RS 57 (<0.1%)
1 n (%)

Região 3

# Renomear a variável caso tenha espaços ou caracteres especiais
dados_tp_negociacao <- dados_r3 

# Criar tabela descritiva
tabela <- dados_tp_negociacao %>%
  select(Tipo_de_Negociacao) %>%
  tbl_summary(
    statistic = all_categorical() ~ "{n} ({p}%)",  # Exibir contagem e porcentagem
    missing = "no"  # Não mostrar valores ausentes
  ) %>%
  modify_header(label = "**Tipo de Negociação**") %>%
  modify_spanning_header(all_stat_cols() ~ "**Distribuição**") %>%
  bold_labels()

# Exibir a tabela
tabela
Tipo de Negociação Distribuição
N = 612,8791
Tipo_de_Negociacao
    PARCELAMENTO CONVENCIONAL 367,347 (60%)
    PARCELAMENTO DA RECUPERACAO JUDICIAL 85 (<0.1%)
    PARCELAMENTO DE ARREMATACAO 77 (<0.1%)
    PARCELAMENTO DE HONORARIOS ADVOCATICIOS 65 (<0.1%)
    TRANSACAO INDIVIDUAL (DEPENDE DE PREVIA APROVACAO DO PDA DA REGIAO) 377 (<0.1%)
    TRANSACAO INDIVIDUAL SIMPLIFICADA 57 (<0.1%)
    TRANSACAO INDIVIDUAL SIMPLIFICADA - CONTRAPROPOSTA - DEBITOS PREVIDENCIARIOS 190 (<0.1%)
    TRANSACAO INDIVIDUAL SIMPLIFICADA - CONTRAPROPOSTA - DEMAIS DEBITOS 204 (<0.1%)
    TRANSACAO INDIVIDUAL SIMPLIFICADA - CONTRAPROPOSTA - SIMPLES NACIONAL 93 (<0.1%)
    TRANSACAO NO CONTENCIOSO TRIBUTARIO DE RELEVANTE E DISSEMINADA CONTROVERSIA JURIDICA 11 (<0.1%)
    TRANSACAO POR ADESAO - EDITAL PGDAU N 01/2024 - DEBITOS PREVIDENCIARIOS 22,940 (3.7%)
    TRANSACAO POR ADESAO - EDITAL PGDAU N 01/2024 - DEMAIS DEBITOS 24,102 (3.9%)
    TRANSACAO POR ADESAO - EDITAL PGDAU N 01/2024 - SIMPLES NACIONAL 44,159 (7.2%)
    TRANSACAO POR ADESAO - EDITAL PGDAU N 02/2024 - DEBITOS PREVIDENCIARIOS 31,332 (5.1%)
    TRANSACAO POR ADESAO - EDITAL PGDAU N 02/2024 - DEMAIS DEBITOS 38,318 (6.3%)
    TRANSACAO POR ADESAO - EDITAL PGDAU N 02/2024 - SIMPLES NACIONAL 49,506 (8.1%)
    TRANSACAO POR ADESAO - EDITAL PGDAU N 06/2024 30,672 (5.0%)
    TRANSACAO POR ADESAO - EDITAL PGDAU N 07/2024 - DESENROLA-DAU 3,185 (0.5%)
    TRANSACAO SOS RS 159 (<0.1%)
1 n (%)

Região 4

# Renomear a variável caso tenha espaços ou caracteres especiais
dados_tp_negociacao <- dados_r4 

# Criar tabela descritiva
tabela <- dados_tp_negociacao %>%
  select(Tipo_de_Negociacao) %>%
  tbl_summary(
    statistic = all_categorical() ~ "{n} ({p}%)",  # Exibir contagem e porcentagem
    missing = "no"  # Não mostrar valores ausentes
  ) %>%
  modify_header(label = "**Tipo de Negociação**") %>%
  modify_spanning_header(all_stat_cols() ~ "**Distribuição**") %>%
  bold_labels()

# Exibir a tabela
tabela
Tipo de Negociação Distribuição
N = 396,1071
Tipo_de_Negociacao
    PARCELAMENTO CONVENCIONAL 218,358 (55%)
    PARCELAMENTO DA RECUPERACAO JUDICIAL 79 (<0.1%)
    PARCELAMENTO DE ARREMATACAO 8 (<0.1%)
    PARCELAMENTO DE HONORARIOS ADVOCATICIOS 35 (<0.1%)
    TRANSACAO INDIVIDUAL (DEPENDE DE PREVIA APROVACAO DO PDA DA REGIAO) 102 (<0.1%)
    TRANSACAO INDIVIDUAL SIMPLIFICADA 33 (<0.1%)
    TRANSACAO INDIVIDUAL SIMPLIFICADA - CONTRAPROPOSTA - DEBITOS PREVIDENCIARIOS 81 (<0.1%)
    TRANSACAO INDIVIDUAL SIMPLIFICADA - CONTRAPROPOSTA - DEMAIS DEBITOS 90 (<0.1%)
    TRANSACAO INDIVIDUAL SIMPLIFICADA - CONTRAPROPOSTA - SIMPLES NACIONAL 42 (<0.1%)
    TRANSACAO NO CONTENCIOSO TRIBUTARIO DE RELEVANTE E DISSEMINADA CONTROVERSIA JURIDICA 1 (<0.1%)
    TRANSACAO POR ADESAO - CONTENCIOSO TRIBUTARIO 1 (<0.1%)
    TRANSACAO POR ADESAO - EDITAL PGDAU N 01/2024 - DEBITOS PREVIDENCIARIOS 20,173 (5.1%)
    TRANSACAO POR ADESAO - EDITAL PGDAU N 01/2024 - DEMAIS DEBITOS 15,350 (3.9%)
    TRANSACAO POR ADESAO - EDITAL PGDAU N 01/2024 - SIMPLES NACIONAL 33,863 (8.5%)
    TRANSACAO POR ADESAO - EDITAL PGDAU N 02/2024 - DEBITOS PREVIDENCIARIOS 23,405 (5.9%)
    TRANSACAO POR ADESAO - EDITAL PGDAU N 02/2024 - DEMAIS DEBITOS 22,563 (5.7%)
    TRANSACAO POR ADESAO - EDITAL PGDAU N 02/2024 - SIMPLES NACIONAL 32,686 (8.3%)
    TRANSACAO POR ADESAO - EDITAL PGDAU N 06/2024 20,676 (5.2%)
    TRANSACAO POR ADESAO - EDITAL PGDAU N 07/2024 - DESENROLA-DAU 2,107 (0.5%)
    TRANSACAO SOS RS 6,454 (1.6%)
1 n (%)

Região 5

# Renomear a variável caso tenha espaços ou caracteres especiais
dados_tp_negociacao <- dados_r5 

# Criar tabela descritiva
tabela <- dados_tp_negociacao %>%
  select(Tipo_de_Negociacao) %>%
  tbl_summary(
    statistic = all_categorical() ~ "{n} ({p}%)",  # Exibir contagem e porcentagem
    missing = "no"  # Não mostrar valores ausentes
  ) %>%
  modify_header(label = "**Tipo de Negociação**") %>%
  modify_spanning_header(all_stat_cols() ~ "**Distribuição**") %>%
  bold_labels()

# Exibir a tabela
tabela
Tipo de Negociação Distribuição
N = 265,2321
Tipo_de_Negociacao
    PARCELAMENTO CONVENCIONAL 148,901 (56%)
    PARCELAMENTO DA RECUPERACAO JUDICIAL 33 (<0.1%)
    PARCELAMENTO DE ARREMATACAO 18 (<0.1%)
    PARCELAMENTO DE HONORARIOS ADVOCATICIOS 7 (<0.1%)
    TRANSACAO EDITAL PGDAU N 3 2023 - DEMAIS DEBITOS 1 (<0.1%)
    TRANSACAO INDIVIDUAL (DEPENDE DE PREVIA APROVACAO DO PDA DA REGIAO) 229 (<0.1%)
    TRANSACAO INDIVIDUAL SIMPLIFICADA 26 (<0.1%)
    TRANSACAO INDIVIDUAL SIMPLIFICADA - CONTRAPROPOSTA - DEBITOS PREVIDENCIARIOS 13 (<0.1%)
    TRANSACAO INDIVIDUAL SIMPLIFICADA - CONTRAPROPOSTA - DEMAIS DEBITOS 17 (<0.1%)
    TRANSACAO INDIVIDUAL SIMPLIFICADA - CONTRAPROPOSTA - SIMPLES NACIONAL 8 (<0.1%)
    TRANSACAO POR ADESAO - EDITAL PGDAU N 01/2024 - DEBITOS PREVIDENCIARIOS 10,316 (3.9%)
    TRANSACAO POR ADESAO - EDITAL PGDAU N 01/2024 - DEMAIS DEBITOS 13,613 (5.1%)
    TRANSACAO POR ADESAO - EDITAL PGDAU N 01/2024 - SIMPLES NACIONAL 20,490 (7.7%)
    TRANSACAO POR ADESAO - EDITAL PGDAU N 02/2024 - DEBITOS PREVIDENCIARIOS 12,611 (4.8%)
    TRANSACAO POR ADESAO - EDITAL PGDAU N 02/2024 - DEMAIS DEBITOS 18,924 (7.1%)
    TRANSACAO POR ADESAO - EDITAL PGDAU N 02/2024 - SIMPLES NACIONAL 23,107 (8.7%)
    TRANSACAO POR ADESAO - EDITAL PGDAU N 06/2024 15,187 (5.7%)
    TRANSACAO POR ADESAO - EDITAL PGDAU N 07/2024 - DESENROLA-DAU 1,660 (0.6%)
    TRANSACAO SOS RS 71 (<0.1%)
1 n (%)

Região 6

# Renomear a variável caso tenha espaços ou caracteres especiais
dados_tp_negociacao <- dados_r6 

# Criar tabela descritiva
tabela <- dados_tp_negociacao %>%
  select(Tipo_de_Negociacao) %>%
  tbl_summary(
    statistic = all_categorical() ~ "{n} ({p}%)",  # Exibir contagem e porcentagem
    missing = "no"  # Não mostrar valores ausentes
  ) %>%
  modify_header(label = "**Tipo de Negociação**") %>%
  modify_spanning_header(all_stat_cols() ~ "**Distribuição**") %>%
  bold_labels()

# Exibir a tabela
tabela
Tipo de Negociação Distribuição
N = 233,2741
Tipo_de_Negociacao
    PARCELAMENTO CONVENCIONAL 144,590 (62%)
    PARCELAMENTO DA RECUPERACAO JUDICIAL 19 (<0.1%)
    PARCELAMENTO DE ARREMATACAO 2 (<0.1%)
    PARCELAMENTO DE HONORARIOS ADVOCATICIOS 3 (<0.1%)
    TRANSACAO INDIVIDUAL (DEPENDE DE PREVIA APROVACAO DO PDA DA REGIAO) 108 (<0.1%)
    TRANSACAO INDIVIDUAL SIMPLIFICADA 21 (<0.1%)
    TRANSACAO INDIVIDUAL SIMPLIFICADA - CONTRAPROPOSTA - DEBITOS PREVIDENCIARIOS 30 (<0.1%)
    TRANSACAO INDIVIDUAL SIMPLIFICADA - CONTRAPROPOSTA - DEMAIS DEBITOS 32 (<0.1%)
    TRANSACAO INDIVIDUAL SIMPLIFICADA - CONTRAPROPOSTA - SIMPLES NACIONAL 23 (<0.1%)
    TRANSACAO POR ADESAO - EDITAL PGDAU N 01/2024 - DEBITOS PREVIDENCIARIOS 9,541 (4.1%)
    TRANSACAO POR ADESAO - EDITAL PGDAU N 01/2024 - DEMAIS DEBITOS 8,124 (3.5%)
    TRANSACAO POR ADESAO - EDITAL PGDAU N 01/2024 - SIMPLES NACIONAL 16,267 (7.0%)
    TRANSACAO POR ADESAO - EDITAL PGDAU N 02/2024 - DEBITOS PREVIDENCIARIOS 12,198 (5.2%)
    TRANSACAO POR ADESAO - EDITAL PGDAU N 02/2024 - DEMAIS DEBITOS 12,670 (5.4%)
    TRANSACAO POR ADESAO - EDITAL PGDAU N 02/2024 - SIMPLES NACIONAL 17,163 (7.4%)
    TRANSACAO POR ADESAO - EDITAL PGDAU N 06/2024 11,221 (4.8%)
    TRANSACAO POR ADESAO - EDITAL PGDAU N 07/2024 - DESENROLA-DAU 1,200 (0.5%)
    TRANSACAO SOS RS 62 (<0.1%)
1 n (%)

Análise Descritiva Feita por Tipo de Negociação: Todas Trasações (exclui-se os parcelamentos)

Brasil

#dados_transacoes <- dados |> filter(`Mês/Ano do Requerimento da Negociação` == "01/2024")



# Criar tabela descritiva
tabela_descritiva <- dados_transacoes %>%
  select(
         `Qtde de Parcelas Concedidas`,
         `Valor Consolidado`, 
         `Valor do Principal`,
         `Valor da Multa`
         ) %>%
  tbl_summary(label = list(`Qtde de Parcelas Concedidas` ~ "Qtde de Parcelas Concedidas",
                           `Valor Consolidado` ~ "Valor Consolidado",
                           `Valor do Principal` ~ "Valor Principal",
                           `Valor da Multa` ~ "Valor da Multa"),
              statistic = list(all_continuous() ~ "{mean} (Média), {median} (Mediana), {sd} (Desvio Padrão)"),
              missing = "no") 

# Exibir tabela
tabela_descritiva
Characteristic N = 959,2071
Qtde de Parcelas Concedidas 46 (Média), 35 (Mediana), 41 (Desvio Padrão)
Valor Consolidado 106,195 (Média), 4,554 (Mediana), 928,305 (Desvio Padrão)
Valor Principal 17,328 (Média), 1,200 (Mediana), 603,338 (Desvio Padrão)
Valor da Multa 811 (Média), 0 (Mediana), 19,519 (Desvio Padrão)
1 Mean (Média), Median (Mediana), SD (Desvio Padrão)

Região 1

dados_transacoes_r1 <- dados_transacoes |> 
  filter(
    #!str_detect(Tipo_de_Negociacao, "^PARCELAMENTO"),  # Exclui linhas que começam com "PARCELAMENTO"
    `Região` == "1° Região"  # Seleciona a Região
  )


#dados_transacoes <- dados |> filter(`Mês/Ano do Requerimento da Negociação` == "01/2024")


# Criar tabela descritiva
tabela_descritiva <- dados_transacoes_r1 %>%
  select(
         `Qtde de Parcelas Concedidas`,
         `Valor Consolidado`, 
         `Valor do Principal`,
         `Valor da Multa`
         ) %>%
  tbl_summary(label = list(`Qtde de Parcelas Concedidas` ~ "Qtde de Parcelas Concedidas",
                           `Valor Consolidado` ~ "Valor Consolidado",
                           `Valor do Principal` ~ "Valor Principal",
                           `Valor da Multa` ~ "Valor da Multa"),
              statistic = list(all_continuous() ~ "{mean} (Média), {median} (Mediana), {sd} (Desvio Padrão)"),
              missing = "no") 

# Exibir tabela
tabela_descritiva
Characteristic N = 236,2341
Qtde de Parcelas Concedidas 44 (Média), 35 (Mediana), 40 (Desvio Padrão)
Valor Consolidado 107,424 (Média), 4,586 (Mediana), 883,395 (Desvio Padrão)
Valor Principal 11,592 (Média), 1,200 (Mediana), 246,244 (Desvio Padrão)
Valor da Multa 795 (Média), 0 (Mediana), 17,443 (Desvio Padrão)
1 Mean (Média), Median (Mediana), SD (Desvio Padrão)

Região 2

dados_transacoes_r2 <- dados_transacoes |> 
  filter(
    #!str_detect(Tipo_de_Negociacao, "^PARCELAMENTO"),  # Exclui linhas que começam com "PARCELAMENTO"
    `Região` == "2° Região"  # Seleciona a Região
  )


#dados_transacoes <- dados |> filter(`Mês/Ano do Requerimento da Negociação` == "01/2024")




# Criar tabela descritiva
tabela_descritiva <- dados_transacoes_r2 %>%
  select(
         `Qtde de Parcelas Concedidas`,
         `Valor Consolidado`, 
         `Valor do Principal`,
         `Valor da Multa`
         ) %>%
  tbl_summary(label = list(`Qtde de Parcelas Concedidas` ~ "Qtde de Parcelas Concedidas",
                           `Valor Consolidado` ~ "Valor Consolidado",
                           `Valor do Principal` ~ "Valor Principal",
                           `Valor da Multa` ~ "Valor da Multa"),
              statistic = list(all_continuous() ~ "{mean} (Média), {median} (Mediana), {sd} (Desvio Padrão)"),
              missing = "no") 

# Exibir tabela
tabela_descritiva
Characteristic N = 95,1081
Qtde de Parcelas Concedidas 46 (Média), 36 (Mediana), 40 (Desvio Padrão)
Valor Consolidado 95,156 (Média), 3,983 (Mediana), 637,365 (Desvio Padrão)
Valor Principal 11,893 (Média), 1,200 (Mediana), 163,275 (Desvio Padrão)
Valor da Multa 670 (Média), 0 (Mediana), 17,633 (Desvio Padrão)
1 Mean (Média), Median (Mediana), SD (Desvio Padrão)

Região 3

dados_transacoes_r3 <- dados_transacoes |> 
  filter(
   # !str_detect(Tipo_de_Negociacao, "^PARCELAMENTO"),  # Exclui linhas que começam com "PARCELAMENTO"
    `Região` == "3° Região"  # Seleciona a Região
  )


#dados_transacoes <- dados |> filter(`Mês/Ano do Requerimento da Negociação` == "01/2024")




# Criar tabela descritiva
tabela_descritiva <- dados_transacoes_r3 %>%
  select(
         `Qtde de Parcelas Concedidas`,
         `Valor Consolidado`, 
         `Valor do Principal`,
         `Valor da Multa`
         ) %>%
  tbl_summary(label = list(`Qtde de Parcelas Concedidas` ~ "Qtde de Parcelas Concedidas",
                           `Valor Consolidado` ~ "Valor Consolidado",
                           `Valor do Principal` ~ "Valor Principal",
                           `Valor da Multa` ~ "Valor da Multa"),
              statistic = list(all_continuous() ~ "{mean} (Média), {median} (Mediana), {sd} (Desvio Padrão)"),
              missing = "no") 

# Exibir tabela
tabela_descritiva
Characteristic N = 245,3051
Qtde de Parcelas Concedidas 47 (Média), 36 (Mediana), 42 (Desvio Padrão)
Valor Consolidado 145,163 (Média), 4,202 (Mediana), 1,206,909 (Desvio Padrão)
Valor Principal 31,834 (Média), 1,211 (Mediana), 1,139,751 (Desvio Padrão)
Valor da Multa 985 (Média), 0 (Mediana), 23,785 (Desvio Padrão)
1 Mean (Média), Median (Mediana), SD (Desvio Padrão)

Região 4

dados_transacoes_r4 <- dados_transacoes |> 
  filter(
    #!str_detect(Tipo_de_Negociacao, "^PARCELAMENTO"),  # Exclui linhas que começam com "PARCELAMENTO"
    `Região` == "4° Região"  # Seleciona a Região
  )


#dados_transacoes <- dados |> filter(`Mês/Ano do Requerimento da Negociação` == "01/2024")

# Calcular estatísticas adicionais
tabela_moda <- dados_transacoes_r4 %>%
  summarise(
    Moda = mfv(`Qtde de Parcelas Concedidas`, na_rm = TRUE) # mfv() retorna a moda
  ) %>%
  t() %>% # Transpor para exibição
  as.data.frame() %>%
  tibble::rownames_to_column("Estatística") 



# Criar tabela descritiva
tabela_descritiva <- dados_transacoes_r4 %>%
  select(
         `Qtde de Parcelas Concedidas`,
         `Valor Consolidado`, 
         `Valor do Principal`,
         `Valor da Multa`
         ) %>%
  tbl_summary(label = list(`Qtde de Parcelas Concedidas` ~ "Qtde de Parcelas Concedidas",
                           `Valor Consolidado` ~ "Valor Consolidado",
                           `Valor do Principal` ~ "Valor Principal",
                           `Valor da Multa` ~ "Valor da Multa"),
              statistic = list(all_continuous() ~ "{mean} (Média), {median} (Mediana), {sd} (Desvio Padrão)"),
              missing = "no") 

# Exibir tabela
tabela_descritiva
Characteristic N = 177,6271
Qtde de Parcelas Concedidas 48 (Média), 38 (Mediana), 42 (Desvio Padrão)
Valor Consolidado 100,483 (Média), 5,300 (Mediana), 1,029,465 (Desvio Padrão)
Valor Principal 15,651 (Média), 1,200 (Mediana), 238,150 (Desvio Padrão)
Valor da Multa 540 (Média), 0 (Mediana), 9,868 (Desvio Padrão)
1 Mean (Média), Median (Mediana), SD (Desvio Padrão)

Região 5

dados_transacoes_r5 <- dados_transacoes |> 
  filter(
   # !str_detect(Tipo_de_Negociacao, "^PARCELAMENTO"),  # Exclui linhas que começam com "PARCELAMENTO"
    `Região` == "5° Região"  # Seleciona a Região
  )


#dados_transacoes <- dados |> filter(`Mês/Ano do Requerimento da Negociação` == "01/2024")

# Calcular estatísticas adicionais
tabela_moda <- dados_transacoes_r5 %>%
  summarise(
    Moda = mfv(`Qtde de Parcelas Concedidas`, na_rm = TRUE) # mfv() retorna a moda
  ) %>%
  t() %>% # Transpor para exibição
  as.data.frame() %>%
  tibble::rownames_to_column("Estatística") 



# Criar tabela descritiva
tabela_descritiva <- dados_transacoes_r5 %>%
  select(
         `Qtde de Parcelas Concedidas`,
         `Valor Consolidado`, 
         `Valor do Principal`,
         `Valor da Multa`
         ) %>%
  tbl_summary(label = list(`Qtde de Parcelas Concedidas` ~ "Qtde de Parcelas Concedidas",
                           `Valor Consolidado` ~ "Valor Consolidado",
                           `Valor do Principal` ~ "Valor Principal",
                           `Valor da Multa` ~ "Valor da Multa"),
              statistic = list(all_continuous() ~ "{mean} (Média), {median} (Mediana), {sd} (Desvio Padrão)"),
              missing = "no") 

# Exibir tabela
tabela_descritiva
Characteristic N = 116,2731
Qtde de Parcelas Concedidas 45 (Média), 36 (Mediana), 40 (Desvio Padrão)
Valor Consolidado 74,880 (Média), 4,572 (Mediana), 648,041 (Desvio Padrão)
Valor Principal 10,430 (Média), 1,200 (Mediana), 210,379 (Desvio Padrão)
Valor da Multa 747 (Média), 0 (Mediana), 23,657 (Desvio Padrão)
1 Mean (Média), Median (Mediana), SD (Desvio Padrão)

Região 6

dados_transacoes_r6 <- dados_transacoes |> 
  filter(
  #  !str_detect(Tipo_de_Negociacao, "^PARCELAMENTO"),  # Exclui linhas que começam com "PARCELAMENTO"
    `Região` == "6° Região"  # Seleciona a Região
  )


#dados_transacoes <- dados |> filter(`Mês/Ano do Requerimento da Negociação` == "01/2024")

# Calcular estatísticas adicionais
tabela_moda <- dados_transacoes_r6 %>%
  summarise(
    Moda = mfv(`Qtde de Parcelas Concedidas`, na_rm = TRUE) # mfv() retorna a moda
  ) %>%
  t() %>% # Transpor para exibição
  as.data.frame() %>%
  tibble::rownames_to_column("Estatística") 



# Criar tabela descritiva
tabela_descritiva <- dados_transacoes_r6 %>%
  select(
         `Qtde de Parcelas Concedidas`,
         `Valor Consolidado`, 
         `Valor do Principal`,
         `Valor da Multa`
         ) %>%
  tbl_summary(label = list(`Qtde de Parcelas Concedidas` ~ "Qtde de Parcelas Concedidas",
                           `Valor Consolidado` ~ "Valor Consolidado",
                           `Valor do Principal` ~ "Valor Principal",
                           `Valor da Multa` ~ "Valor da Multa"),
              statistic = list(all_continuous() ~ "{mean} (Média), {median} (Mediana), {sd} (Desvio Padrão)"),
              missing = "no") 

# Exibir tabela
tabela_descritiva
Characteristic N = 88,6601
Qtde de Parcelas Concedidas 45 (Média), 35 (Mediana), 41 (Desvio Padrão)
Valor Consolidado 61,207 (Média), 4,355 (Mediana), 284,519 (Desvio Padrão)
Valor Principal 12,710 (Média), 1,200 (Mediana), 207,415 (Desvio Padrão)
Valor da Multa 1,332 (Média), 0 (Mediana), 25,110 (Desvio Padrão)
1 Mean (Média), Median (Mediana), SD (Desvio Padrão)

Análise Descritiva Feita por Mês: Todas Transações (exclui-se os parcelamentos)

12/2024

dados_m_transacoes <- dados_trasacoes |> filter(`Mês/Ano do Requerimento da Negociação` == "12/2024")



# Criar tabela descritiva
tabela_descritiva <- dados_m_transacoes %>%
  select(
         `Qtde de Parcelas Concedidas`,
         `Valor Consolidado`, 
         `Valor do Principal`,
         `Valor da Multa`
         ) %>%
  tbl_summary(label = list(`Qtde de Parcelas Concedidas` ~ "Qtde de Parcelas Concedidas",
                           `Valor Consolidado` ~ "Valor Consolidado",
                           `Valor do Principal` ~ "Valor Principal",
                           `Valor da Multa` ~ "Valor da Multa"),
              statistic = list(all_continuous() ~ "{mean} (Média), {median} (Mediana), {sd} (Desvio Padrão)"),
              missing = "no") 

# Exibir tabela
tabela_descritiva
Characteristic N = 66,8551
Qtde de Parcelas Concedidas 45 (Média), 35 (Mediana), 39 (Desvio Padrão)
Valor Consolidado 110,887 (Média), 4,059 (Mediana), 1,121,880 (Desvio Padrão)
Valor Principal 6,756 (Média), 1,200 (Mediana), 78,607 (Desvio Padrão)
Valor da Multa 445 (Média), 0 (Mediana), 7,459 (Desvio Padrão)
1 Mean (Média), Median (Mediana), SD (Desvio Padrão)

11/2024

dados_m_transacoes <- dados_trasacoes |> filter(`Mês/Ano do Requerimento da Negociação` == "11/2024")



# Criar tabela descritiva
tabela_descritiva <- dados_m_transacoes %>%
  select(
         `Qtde de Parcelas Concedidas`,
         `Valor Consolidado`, 
         `Valor do Principal`,
         `Valor da Multa`
         ) %>%
  tbl_summary(label = list(`Qtde de Parcelas Concedidas` ~ "Qtde de Parcelas Concedidas",
                           `Valor Consolidado` ~ "Valor Consolidado",
                           `Valor do Principal` ~ "Valor Principal",
                           `Valor da Multa` ~ "Valor da Multa"),
              statistic = list(all_continuous() ~ "{mean} (Média), {median} (Mediana), {sd} (Desvio Padrão)"),
              missing = "no") 

# Exibir tabela
tabela_descritiva
Characteristic N = 65,9181
Qtde de Parcelas Concedidas 44 (Média), 35 (Mediana), 39 (Desvio Padrão)
Valor Consolidado 77,406 (Média), 3,903 (Mediana), 1,041,232 (Desvio Padrão)
Valor Principal 44,893 (Média), 1,200 (Mediana), 1,868,780 (Desvio Padrão)
Valor da Multa 387 (Média), 0 (Mediana), 6,600 (Desvio Padrão)
1 Mean (Média), Median (Mediana), SD (Desvio Padrão)

10/2024

dados_m_transacoes <- dados_trasacoes |> filter(`Mês/Ano do Requerimento da Negociação` == "10/2024")



# Criar tabela descritiva
tabela_descritiva <- dados_m_transacoes %>%
  select(
         `Qtde de Parcelas Concedidas`,
         `Valor Consolidado`, 
         `Valor do Principal`,
         `Valor da Multa`
         ) %>%
  tbl_summary(label = list(`Qtde de Parcelas Concedidas` ~ "Qtde de Parcelas Concedidas",
                           `Valor Consolidado` ~ "Valor Consolidado",
                           `Valor do Principal` ~ "Valor Principal",
                           `Valor da Multa` ~ "Valor da Multa"),
              statistic = list(all_continuous() ~ "{mean} (Média), {median} (Mediana), {sd} (Desvio Padrão)"),
              missing = "no") 

# Exibir tabela
tabela_descritiva
Characteristic N = 116,3511
Qtde de Parcelas Concedidas 48 (Média), 36 (Mediana), 44 (Desvio Padrão)
Valor Consolidado 122,050 (Média), 4,558 (Mediana), 1,026,908 (Desvio Padrão)
Valor Principal 19,709 (Média), 1,400 (Mediana), 242,282 (Desvio Padrão)
Valor da Multa 894 (Média), 0 (Mediana), 15,786 (Desvio Padrão)
1 Mean (Média), Median (Mediana), SD (Desvio Padrão)

09/2024

dados_m_transacoes <- dados_trasacoes |> filter(`Mês/Ano do Requerimento da Negociação` == "09/2024")



# Criar tabela descritiva
tabela_descritiva <- dados_m_transacoes %>%
  select(
         `Qtde de Parcelas Concedidas`,
         `Valor Consolidado`, 
         `Valor do Principal`,
         `Valor da Multa`
         ) %>%
  tbl_summary(label = list(`Qtde de Parcelas Concedidas` ~ "Qtde de Parcelas Concedidas",
                           `Valor Consolidado` ~ "Valor Consolidado",
                           `Valor do Principal` ~ "Valor Principal",
                           `Valor da Multa` ~ "Valor da Multa"),
              statistic = list(all_continuous() ~ "{mean} (Média), {median} (Mediana), {sd} (Desvio Padrão)"),
              missing = "no") 

# Exibir tabela
tabela_descritiva
Characteristic N = 66,0141
Qtde de Parcelas Concedidas 45 (Média), 35 (Mediana), 41 (Desvio Padrão)
Valor Consolidado 94,351 (Média), 4,071 (Mediana), 679,593 (Desvio Padrão)
Valor Principal 13,754 (Média), 1,200 (Mediana), 245,417 (Desvio Padrão)
Valor da Multa 1,418 (Média), 0 (Mediana), 37,929 (Desvio Padrão)
1 Mean (Média), Median (Mediana), SD (Desvio Padrão)

08/2024

dados_m_transacoes <- dados_trasacoes |> filter(`Mês/Ano do Requerimento da Negociação` == "08/2024")



# Criar tabela descritiva
tabela_descritiva <- dados_m_transacoes %>%
  select(
         `Qtde de Parcelas Concedidas`,
         `Valor Consolidado`, 
         `Valor do Principal`,
         `Valor da Multa`
         ) %>%
  tbl_summary(label = list(`Qtde de Parcelas Concedidas` ~ "Qtde de Parcelas Concedidas",
                           `Valor Consolidado` ~ "Valor Consolidado",
                           `Valor do Principal` ~ "Valor Principal",
                           `Valor da Multa` ~ "Valor da Multa"),
              statistic = list(all_continuous() ~ "{mean} (Média), {median} (Mediana), {sd} (Desvio Padrão)"),
              missing = "no") 

# Exibir tabela
tabela_descritiva
Characteristic N = 97,6351
Qtde de Parcelas Concedidas 51 (Média), 42 (Mediana), 45 (Desvio Padrão)
Valor Consolidado 141,254 (Média), 6,019 (Mediana), 781,685 (Desvio Padrão)
Valor Principal 27,475 (Média), 1,200 (Mediana), 596,458 (Desvio Padrão)
Valor da Multa 747 (Média), 0 (Mediana), 10,877 (Desvio Padrão)
1 Mean (Média), Median (Mediana), SD (Desvio Padrão)

07/2024

dados_m_transacoes <- dados_trasacoes |> filter(`Mês/Ano do Requerimento da Negociação` == "07/2024")



# Criar tabela descritiva
tabela_descritiva <- dados_m_transacoes %>%
  select(
         `Qtde de Parcelas Concedidas`,
         `Valor Consolidado`, 
         `Valor do Principal`,
         `Valor da Multa`
         ) %>%
  tbl_summary(label = list(`Qtde de Parcelas Concedidas` ~ "Qtde de Parcelas Concedidas",
                           `Valor Consolidado` ~ "Valor Consolidado",
                           `Valor do Principal` ~ "Valor Principal",
                           `Valor da Multa` ~ "Valor da Multa"),
              statistic = list(all_continuous() ~ "{mean} (Média), {median} (Mediana), {sd} (Desvio Padrão)"),
              missing = "no") 

# Exibir tabela
tabela_descritiva
Characteristic N = 80,3341
Qtde de Parcelas Concedidas 47 (Média), 36 (Mediana), 42 (Desvio Padrão)
Valor Consolidado 130,151 (Média), 3,920 (Mediana), 1,083,642 (Desvio Padrão)
Valor Principal 19,619 (Média), 1,200 (Mediana), 451,959 (Desvio Padrão)
Valor da Multa 703 (Média), 0 (Mediana), 15,249 (Desvio Padrão)
1 Mean (Média), Median (Mediana), SD (Desvio Padrão)

06/2024

dados_m_transacoes <- dados_trasacoes |> filter(`Mês/Ano do Requerimento da Negociação` == "06/2024")



# Criar tabela descritiva
tabela_descritiva <- dados_m_transacoes %>%
  select(
         `Qtde de Parcelas Concedidas`,
         `Valor Consolidado`, 
         `Valor do Principal`,
         `Valor da Multa`
         ) %>%
  tbl_summary(label = list(`Qtde de Parcelas Concedidas` ~ "Qtde de Parcelas Concedidas",
                           `Valor Consolidado` ~ "Valor Consolidado",
                           `Valor do Principal` ~ "Valor Principal",
                           `Valor da Multa` ~ "Valor da Multa"),
              statistic = list(all_continuous() ~ "{mean} (Média), {median} (Mediana), {sd} (Desvio Padrão)"),
              missing = "no") 

# Exibir tabela
tabela_descritiva
Characteristic N = 58,5071
Qtde de Parcelas Concedidas 45 (Média), 36 (Mediana), 40 (Desvio Padrão)
Valor Consolidado 171,806 (Média), 6,547 (Mediana), 1,380,558 (Desvio Padrão)
Valor Principal 10,458 (Média), 1,200 (Mediana), 105,720 (Desvio Padrão)
Valor da Multa 849 (Média), 0 (Mediana), 16,237 (Desvio Padrão)
1 Mean (Média), Median (Mediana), SD (Desvio Padrão)

05/2024

dados_m_transacoes <- dados_trasacoes |> filter(`Mês/Ano do Requerimento da Negociação` == "05/2024")



# Criar tabela descritiva
tabela_descritiva <- dados_m_transacoes %>%
  select(
         `Qtde de Parcelas Concedidas`,
         `Valor Consolidado`, 
         `Valor do Principal`,
         `Valor da Multa`
         ) %>%
  tbl_summary(label = list(`Qtde de Parcelas Concedidas` ~ "Qtde de Parcelas Concedidas",
                           `Valor Consolidado` ~ "Valor Consolidado",
                           `Valor do Principal` ~ "Valor Principal",
                           `Valor da Multa` ~ "Valor da Multa"),
              statistic = list(all_continuous() ~ "{mean} (Média), {median} (Mediana), {sd} (Desvio Padrão)"),
              missing = "no") 

# Exibir tabela
tabela_descritiva
Characteristic N = 40,8451
Qtde de Parcelas Concedidas 45 (Média), 36 (Mediana), 40 (Desvio Padrão)
Valor Consolidado 53,454 (Média), 4,978 (Mediana), 193,730 (Desvio Padrão)
Valor Principal 8,771 (Média), 1,155 (Mediana), 113,344 (Desvio Padrão)
Valor da Multa 696 (Média), 0 (Mediana), 9,289 (Desvio Padrão)
1 Mean (Média), Median (Mediana), SD (Desvio Padrão)

04/2024

dados_m_transacoes <- dados_trasacoes |> filter(`Mês/Ano do Requerimento da Negociação` == "04/2024")



# Criar tabela descritiva
tabela_descritiva <- dados_m_transacoes %>%
  select(
         `Qtde de Parcelas Concedidas`,
         `Valor Consolidado`, 
         `Valor do Principal`,
         `Valor da Multa`
         ) %>%
  tbl_summary(label = list(`Qtde de Parcelas Concedidas` ~ "Qtde de Parcelas Concedidas",
                           `Valor Consolidado` ~ "Valor Consolidado",
                           `Valor do Principal` ~ "Valor Principal",
                           `Valor da Multa` ~ "Valor da Multa"),
              statistic = list(all_continuous() ~ "{mean} (Média), {median} (Mediana), {sd} (Desvio Padrão)"),
              missing = "no") 

# Exibir tabela
tabela_descritiva
Characteristic N = 80,5051
Qtde de Parcelas Concedidas 48 (Média), 36 (Mediana), 43 (Desvio Padrão)
Valor Consolidado 165,788 (Média), 7,035 (Mediana), 964,830 (Desvio Padrão)
Valor Principal 23,242 (Média), 1,101 (Mediana), 398,486 (Desvio Padrão)
Valor da Multa 1,243 (Média), 0 (Mediana), 31,926 (Desvio Padrão)
1 Mean (Média), Median (Mediana), SD (Desvio Padrão)

03/2024

dados_m_transacoes <- dados_trasacoes |> filter(`Mês/Ano do Requerimento da Negociação` == "03/2024")



# Criar tabela descritiva
tabela_descritiva <- dados_m_transacoes %>%
  select(
         `Qtde de Parcelas Concedidas`,
         `Valor Consolidado`, 
         `Valor do Principal`,
         `Valor da Multa`
         ) %>%
  tbl_summary(label = list(`Qtde de Parcelas Concedidas` ~ "Qtde de Parcelas Concedidas",
                           `Valor Consolidado` ~ "Valor Consolidado",
                           `Valor do Principal` ~ "Valor Principal",
                           `Valor da Multa` ~ "Valor da Multa"),
              statistic = list(all_continuous() ~ "{mean} (Média), {median} (Mediana), {sd} (Desvio Padrão)"),
              missing = "no") 

# Exibir tabela
tabela_descritiva
Characteristic N = 59,0751
Qtde de Parcelas Concedidas 45 (Média), 35 (Mediana), 41 (Desvio Padrão)
Valor Consolidado 116,922 (Média), 4,322 (Mediana), 1,423,402 (Desvio Padrão)
Valor Principal 8,726 (Média), 1,156 (Mediana), 104,267 (Desvio Padrão)
Valor da Multa 1,017 (Média), 0 (Mediana), 22,700 (Desvio Padrão)
1 Mean (Média), Median (Mediana), SD (Desvio Padrão)

02/2024

dados_m_transacoes <- dados_trasacoes |> filter(`Mês/Ano do Requerimento da Negociação` == "02/2024")



# Criar tabela descritiva
tabela_descritiva <- dados_m_transacoes %>%
  select(
         `Qtde de Parcelas Concedidas`,
         `Valor Consolidado`, 
         `Valor do Principal`,
         `Valor da Multa`
         ) %>%
  tbl_summary(label = list(`Qtde de Parcelas Concedidas` ~ "Qtde de Parcelas Concedidas",
                           `Valor Consolidado` ~ "Valor Consolidado",
                           `Valor do Principal` ~ "Valor Principal",
                           `Valor da Multa` ~ "Valor da Multa"),
              statistic = list(all_continuous() ~ "{mean} (Média), {median} (Mediana), {sd} (Desvio Padrão)"),
              missing = "no") 

# Exibir tabela
tabela_descritiva
Characteristic N = 52,6111
Qtde de Parcelas Concedidas 43 (Média), 35 (Mediana), 39 (Desvio Padrão)
Valor Consolidado 69,294 (Média), 4,226 (Mediana), 509,376 (Desvio Padrão)
Valor Principal 14,188 (Média), 1,200 (Mediana), 295,560 (Desvio Padrão)
Valor da Multa 952 (Média), 0 (Mediana), 20,746 (Desvio Padrão)
1 Mean (Média), Median (Mediana), SD (Desvio Padrão)

01/2024

dados_m_transacoes <- dados_trasacoes |> filter(`Mês/Ano do Requerimento da Negociação` == "01/2024")



# Criar tabela descritiva
tabela_descritiva <- dados_m_transacoes %>%
  select(
         `Qtde de Parcelas Concedidas`,
         `Valor Consolidado`, 
         `Valor do Principal`,
         `Valor da Multa`
         ) %>%
  tbl_summary(label = list(`Qtde de Parcelas Concedidas` ~ "Qtde de Parcelas Concedidas",
                           `Valor Consolidado` ~ "Valor Consolidado",
                           `Valor do Principal` ~ "Valor Principal",
                           `Valor da Multa` ~ "Valor da Multa"),
              statistic = list(all_continuous() ~ "{mean} (Média), {median} (Mediana), {sd} (Desvio Padrão)"),
              missing = "no") 

# Exibir tabela
tabela_descritiva
Characteristic N = 174,5571
Qtde de Parcelas Concedidas 44 (Média), 35 (Mediana), 38 (Desvio Padrão)
Valor Consolidado 49,114 (Média), 4,208 (Mediana), 494,058 (Desvio Padrão)
Valor Principal 7,937 (Média), 1,450 (Mediana), 147,729 (Desvio Padrão)
Valor da Multa 616 (Média), 0 (Mediana), 17,363 (Desvio Padrão)
1 Mean (Média), Median (Mediana), SD (Desvio Padrão)